home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT DNS Options 1.xpl < prev    next >
Text File  |  2003-11-19  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Network\DNS"
  5. "NAME"="NT DNS Server Port"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "OSVERSION"="01000"
  10. "TEXT 1"="DNS Port"
  11. "DESCRIPTION 1"="Use this plug-in to change the port number that NT uses for it's DNS service. A number bigger than 1024 will define the port number that NT uses. A number smaller than 1024 allows NT to use ANY port."
  12. "DESCRIPTION 2"="To restore the original settings, clear the field."
  13. "DESCRIPTION 3"="NOTE: This feature requires NT4 SP4 to work correctly."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. SPC="HKLM\SYSTEM\CurrentControlSet\Services\DNS\"
  21. sP="HKLM\SYSTEM\CurrentControlSet\Services\DNS\Parameters\SendOnNonDnsPort"
  22.  
  23. Sub Plugin_Initialize 
  24.  If RegPathExists(sPC) then 
  25.     i=RegReadValue(sP)
  26.     if IsEmpty(i)=false then
  27.        SetUIElement 1,i
  28.     end if
  29.  else
  30.     Disable
  31.  end if
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  i=GetUIElement(1)
  39.  
  40.  if i="" then
  41.     'Delete Value   
  42.  
  43.     i=RegReadValue(sP)
  44.     if not isEmpty(i) then 
  45.        Call RegDeleteValue(sP)
  46.     end if
  47.  
  48.  else
  49.     'Set Value
  50.  
  51.     if IsNumeric(i) then
  52.        Call RegWriteValue(sP,i,2)
  53.        Call Restart
  54.     else
  55.         Call MsgError("Please enter a valid numeric value.")
  56.     end if
  57.  
  58.  end if
  59.   
  60.  
  61. End Sub
  62.  
  63. Sub Plugin_Terminate 
  64. End Sub
  65.